home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed44a.d64 / add 4 to 8 t (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  179 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:X=1:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"          [200][197][204][197][206]'[211]  [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB240
  7. 125 PRINT"            [193][196][196][201][212][201][207][206] [212][197][211][212] 9             [146]";
  8. 130 PRINT"[159]                  WITH                  [146]";
  9. 135 PRINT"          NUMBERS FROM 4 TO 8           [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB780
  13. 155 PRINT"[147]":GOSUB291
  14. 160 PRINT"[147][153] [201]N THIS UNIT WE [212][197][211][212] ADDITION SKILLS
  15. 162 [153]" WITH NUMBERS FROM 4PRINT TO 8WAIT."
  16. 164 [153]" (null)OU HAVE ONLY (null)(null)VAL CHANCE TO ANSWER      EACH QUESTION
  17. 166 PRINT" [201]F YOU MISS IT, THAT'S A [150][194][204][207][207][208][197][210][153].
  18. 168 [153]" (null)OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME."
  19. 170 [141]292:[141]460
  20. 175 [153]"LOAD":[141]291
  21. 180 [153]"LOADPRINT (null)HAT IS YOUR NAME?":[141]260
  22. 182 [133]N$
  23. 184 [153]"LOAD ATNND AWAY WE GO, "N$
  24. 185 [141]291:[141]200:[141]290
  25. 190 [153]"LOAD":[141]291
  26. 195 TI$[178]"000000":[137]500
  27. 200 [143] <YES> SOUND
  28. 202 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  29. 204 [151]54296,15:[151]54277,42:[151]54278,250
  30. 206 [151]54276,23:[151]54273,23:[151]54272,191
  31. 208 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]250:[130]
  32. 210 [151]54296,0:[142]
  33. 220 [143] <NO> SOUND
  34. 222 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  35. 224 [151]54296,15:[151]54277,18:[151]54278,242
  36. 226 [151]54276,33:[151]54273,4:[151]54272,48
  37. 228 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  38. 230 [151]54296,0:[142]
  39. 240 [143] <BLIP> SOUND
  40. 242 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  41. 244 [151]54296,6:[151]54277,42:[151]54278,250
  42. 246 [151]54276,23:[151]54273,23:[151]54272,191
  43. 248 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  44. 250 [151]54296,0:[142]
  45. 260 [143] <DING> SOUND
  46. 262 SS[178]54272:[151]54296,15:[151]SS,50:[151]SS[170]1,35:[151]SS[170]2,0:[151]SS[170]3,8:[151]SS[170]5,0
  47. 264 [151]SS[170]6,10[172]16[170]9:[151]SS[170]4,14:[151]SS[170]4,65:[129]QQ[178]1[164]20:[151]SS[170]4,64
  48. 266 [142]
  49. 270 [143] <VERY WRONG> SOUND
  50. 272 SS[178]54272:[151]54296,15:[151]SS,32:[151]SS[170]1,3:[151]SS[170]2,128:[151]SS[170]3,13
  51. 274 [151]SS[170]5,4[172]16[170]0:[151]SS[170]6,10[172]16[170]8
  52. 276 [151]SS[170]24,15:[151]SS[170]4,65:[129]QQ[178]1[164]500:[130]:[151]SS[170]4,64:[142]
  53. 290 [129]TM[178]1[164]600:[130]:[142]
  54. 291 [129]TM[178]1[164]1000:[130]:[142]
  55. 292 [129]TM[178]1[164]2000:[130]:[142]
  56. 293 [129]TM[178]1[164]3000:[130]:[142]
  57. 300 [153]"LOAD":[141]290
  58. 302 [153]"LISTATNDD 4-8 (null)CLR"[163]13)""N$[163]32)"LISTRIGHT$TEM:"Y
  59. 305 [142]
  60. 310 [153]"OPEN           ";A$"+OPEN";B$"="Z$
  61. 350 [143] TI$="000000"
  62. 355 N[178]TI[173]60
  63. 360 N[178][181](N[170].5)
  64. 365 [153]"CONT";N"SECONDSONONONONONONONONONONONONONONONON"
  65. 370 [142]
  66. 400 [143] CORRECT
  67. 402 [153]"PRINT                   (null)VAL(null)                  WAIT":[141]200:[141]292
  68. 404 [153]"ONON                                        "
  69. 410 [142]
  70. 420 [151]53280,2:[141]220:[141]291
  71. 423 [153]"DEF                   (null)(null)!                  WAIT":[141]292
  72. 425 [153]"ONON                                        ONON"
  73. 440 [153]"LOAD":[141]290:[151]53280,13
  74. 445 [153]"      >>>>>CLOSECLOSE PRINT";A$" + PRINT";B$" =PRINT ";C$"   <<<<<"
  75. 450 [141]260:[141]293:[141]460:[151]53280,0:[142]
  76. 460 [141]291:[141]260
  77. 462 [153]"CONT      >>>>>    (null)(null)ATNLENVALCLOSEPEEKATN(null)    <<<<<       WAIT"
  78. 464 [161]R$:[139]R$[179][177][199](32)[167]464
  79. 466 [153]"ONON                                        ":[142]
  80. 500 [129]G[178]1[164]25
  81. 505 [141]300:[141]350:Y[178]Y[170]1:P[178]0:[151]53280,0
  82. 510 [135]A$,B$,C$
  83. 520 [153]"               ";A$" + ";B$" = ":[141]260
  84. 530 [153]"SYSON ";:[133]Z$
  85. 540 [139]Z$[178]C$[167][141]400:C[178]C[170]1:[137]550
  86. 545 [141]420:W[178]W[170]1:
  87. 550 [130] G
  88. 599 :
  89. 600 [153]"LOAD       ATNSTR$STR$ 4-8 (null)    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$         WAIT":[141]291
  90. 602 [153]"          CLR"N$
  91. 605 L[178]C[172]4:L[178][181](L[170].5)
  92. 610 [153]"SYS          (null)OUR (null)LEN(null)(null)VAL ...";L"%":[141]260:[141]293
  93. 613 [153]"SYS          (null)OUR TIME ...."N"SECONDS":[141]260:[141]293
  94. 615 [153]"PRINT          LENORRECT ......"C:[141]200:[141]292
  95. 620 [153]"DEF          PEEKLOOPERS ....."W:[141]270:[141]292
  96. 622 [139] N[178][179]160[167][153]"          (null)OU WERE ASCATN(null)(null)":[141]260:[141]292:[137]625
  97. 623 [139]N[178][179]250[167][153]"SYS          LENAN YOU GO FASTER?":[141]260:[141]292:[137]625
  98. 624 [153]"SYS          RIGHT$'M SURE YOU CAN GO FASTER.":[137]625
  99. 625 [139]C[178]25[167][153]"              VAL(null)LENVAL(null)(null)VAL(null)(null) (null)(null)(null)(null)!           WAIT"
  100. 630 [139]C[178]25[167][141]200:[141]292:[137]660
  101. 635 [139]C[178][177]22[167][153]"               CHR$OOD (null)ORK WAIT"
  102. 640 [139]C[178][177]22[167][141]200:[141]292:[137]660
  103. 650 [141]292:[153]" >>>>> (null)OU NEED MORE PRACTICE.":[141]292
  104. 655 [153]" >>>>> (null)LEASE PLAY THIS GAME AGAIN."
  105. 660 [141]460
  106. 672 [153]"LOAD  (null)RESS  (null) WAIT TO REPEAT ATNSTR$STR$ 4 TO 8 (null)
  107. 674 PRINT"  [208]RESS  [199] [146] TO GO TO THE NEXT GAME.
  108. 676 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK (null)VAL(null)(null)
  109. 678 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"M"ANDR$<>"[205]"ANDR$<>"[199]"ANDR$<>"G"THEN678
  110. 680 IFR$="R"THEN RESTORE:Y=1:GOTO500
  111. 682 IFR$="[210]"THEN RESTORE:Y=1:GOTO500
  112. 684 IFR$="G"THEN RESTORE:GOTO800
  113. 686 IFR$="[199]"THEN RESTORE:GOTO800
  114. 688 RESTORE:PRINT"[147] [210]ETURNING TO THE DISK MENU
  115. 690 [147]"MENU",8
  116. 692 [138]
  117. 694 [128]
  118. 699 :
  119. 700 [153]"LOADOPEN         (null)VALATNLENLEFT$VAL(null)CLOSERIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)
  120. 702 PRINT" [212]HIS IS THE NINTH OF A SET OF ADDITION
  121. 704 [153]"ON EXERCISES DESIGNED SPECIFICALLY FOR
  122. 706 PRINT" CHILDREN CLASSED AS 'INTELLECTUALLY     CHALLENGED'.
  123. 710 [153]" VALACH PAIR OF EXERCIES USES A SET
  124. 712 PRINT" RANGE OF NUMBERS.
  125. 714 [153]" (null)HE FIRST EXERCISE ((null)) IN A PAIR
  126. 716 PRINT" PROVIVDES A MEASURED [208][210][193][195][212][201][195][197].
  127. 718 [153]" (null)HE SECOND EXERCISE ((null)) PROVIDES A      TIMED AND MEASURED (null)VAL(null)(null).
  128. 720 PRINT" [212]HIS IS THE [212][197][211][212] EXERCISE."
  129. 722 GOSUB460
  130. 730 PRINT"[147][159] [210]OLISON'S '[212][210][201][193][196] PRINCIPLE' IS USED
  131. 740 [153]" TO SELECT THE NUMBER COMBINATIONS.
  132. 750 PRINT" [201]T WOULD BE A GOOD IDEA TO RECORD
  133. 755 [153]" THE PUPIL'S PERFOMANCE ON EACH UNIT."
  134. 760 [153]" (null)HIS SERIES OF EXERCISES IS DEDICATED
  135. 765 PRINT" TO [200]ELEN [200]ORN, FORMER PRINCIPAL OF
  136. 770 [153]" (null)YNDWOOD (null)UBLIC (null)CHOOL, (null)ISSISSAUGA,    (null)NTARIO, LENANADA.    1993
  137. 775 GOSUB460:RETURN
  138. 780 GOSUB291:GOSUB260
  139. 782 PRINT"[154]           [201]NSTRUCTIONS?  [217]/[206]       [151][212]"
  140. 784 GETR$:IFR$<>"Y"ANDR$<>"[217]"ANDR$<>"[206]"ANDR$<>"N"ANDR$<>"T"ANDR$<>"[212]"THEN784
  141. 786 IFR$="T"THEN700
  142. 788 IFR$="[212]"THEN700
  143. 790 IFR$="Y"THEN160
  144. 792 IFR$="[217]"THEN160
  145. 794 PRINT"[145][145]                                        ":GOTO180
  146. 800 PRINT"[147] GOING TO  ADD 7 TO 9  P "
  147. 805 PRINT"[144]LOAD"CHR$(34)"ADD 7 TO 9  P"CHR$(34)",8:"
  148. 810 POKE198,0:POKE631,19:POKE632,131:POKE198,2
  149. 815 END
  150. 899 :
  151. 1000 DATA "4","4","8"
  152. 1005 DATA "5","5","10"
  153. 1010 DATA "6","6","12"
  154. 1015 DATA "7","7","14"
  155. 1020 DATA "8","8","16"
  156. 1025 DATA "6","5","11"
  157. 1030 DATA "7","6","13"
  158. 1035 DATA "8","7","15"
  159. 1040 DATA "7","5","12"
  160. 1045 DATA "6","8","14"
  161. 1050 DATA "8","5","13"
  162. 1055 DATA "6","5","11"
  163. 1060 DATA "5","7","12"
  164. 1065 DATA "6","5","11"
  165. 1070 DATA "7","7","14"
  166. 1075 DATA "8","4","12"
  167. 1080 DATA "7","6","13"
  168. 1085 DATA "5","7","12"
  169. 1090 DATA "6","5","11"
  170. 1095 DATA "7","4","11"
  171. 1100 DATA "7","8","15"
  172. 1105 DATA "5","7","12"
  173. 1110 DATA "7","6","13"
  174. 1115 DATA "4","8","12"
  175. 1120 DATA "7","4","11"
  176. 1888 :
  177. 2000 REM WHC 93 03 03<>93 07 07
  178. 2010 REM DEDICATED TO HELEN HORN  1993
  179.